Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/Demos/Bombardier_PC/BSCRIPTS.CST/00018_Script_cabin detail

Text File | 1999-04-25 | 2KB | 61 lines

-- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
-- Developed for Bombardier, Inc.
--
-- All programming developed by:
-- Robert Fabricant, Valerie Valoueva, Ossi Shaked,
-- Henry Sauvageot, Chris Howell & Chris Girand
--
-- Use of this code by parties other than @radical.media, inc. or their
--agents
-- without the express written consent of @radical.media, inc. AND Concurrent
-- New Media Group, L.L.C. is strictly prohibited.
------------------------------------------------------
-------*This script is not used in this version of the movie*----------

on getbehaviorDescription
  return "changes the image on rollover"
end


on mouseEnter me
  global gSub ,gSImage,gBlunk
  if gSub <> the spritenum of me then
    set Rcast= the castnum of sprite the spritenum of me +1
    set the castnum of sprite the spritenum of me to Rcast
  end if

  set dimage = the castnum of sprite the spritenum of me +1
  put dimage&&gSub
  set gBlunk = the castnum of sprite 36
  set the castnum of sprite 36 to dimage
  set the ink of sprite 36 to 0
  updatestage

end

on mouseleave me
  global gSub,gBlunk
  put gSub
  if gSub <> the spritenum of me then
    set Ncast= the castnum of sprite the spritenum of me -1
    set the castnum of sprite the spritenum of me to Ncast
  end if
  set the castnum of sprite 36 to gBlunk
  set the ink of sprite 36 to 39
  updatestage
end


on mouseup me
  global gSub,gSImage

  if gSub <> the spritenum of me then
    set gSub = the spritenum of me
    set gSImage = the castnum of sprite the spritenum of me
  end if

  pass

end